unit utCommonFuncs;

interface

function Min(a,b:Cardinal ):Cardinal ;

implementation

function Min(a,b:Cardinal ):Cardinal ;
asm
  cmp eax,edx
  ja @@bMin
  ret
@@bMin:
  mov eax,edx
end;

end.
